#! /usr/bin/sdlbrt

finp$="charmapmogura01.bas"
fout$=finp$+"_.txt"

open finp$ for input as #1
open fout$ for output as #2

while eof(1)=0:
  file input #1,a$

  b$=""
  for e=len(a$) to 1 step -1
    b$=b$+mid$(a$,e,1)
    next

  print #2,b$


wend

close #1: close #2



'setdisplay(320,240,32,1):paper(8^8-1):ink(0):pen(0):cls
''loadimage("pic1.png",1):pasteicon(0,0,1)
''grab(1,0,0,320,240):saveimage("pic1b.bmp",1)
'waitkey

